Dim NetPrice, discount, total As Single

Private Sub Command1_Click()

discount = Text2.Text / 100
total = Text1.Text * discount
NetPrice = Text1.Text - total
Text3.Text = NetPrice
Text4.Text = total
End Sub
